home *** CD-ROM | disk | FTP | other *** search
/ Enigma Amiga Life 109 / EnigmaAmiga109CD.iso / dalla rivista / amiga.free / sorgenti vari / wolfedit2 2.0.4 source.sit / WolfEdit2 2.0.4 Source / UCursors.p < prev    next >
Text File  |  1995-08-07  |  347b  |  29 lines
  1. unit UCursors;
  2.  
  3. interface
  4.  
  5.     var
  6.  
  7.         gWatch: CursHandle;
  8.  
  9.     procedure IUCursors;
  10.     procedure ChangeCursor (h: CursHandle);
  11.  
  12. implementation
  13.     uses
  14.         UGoof;
  15.  
  16.     procedure IUCursors;
  17.         var
  18.             h: CursHandle;
  19.     begin
  20.         gWatch := GetCursor(watchCursor);
  21.     end;
  22.  
  23.     procedure ChangeCursor (h: CursHandle);
  24.     begin
  25.         gCurrentCursor := h;
  26.         SetCursor(h^^);
  27.     end;
  28.  
  29. end.